VERSION 5.00
Begin VB.Form frmAdvanced 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "X-Bot Advanced Options"
   ClientHeight    =   5970
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   7905
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5970
   ScaleWidth      =   7905
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   7200
      Top             =   1080
   End
   Begin VB.Frame fraRunBots 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Run Bots (Special Options)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1695
      Left            =   3480
      TabIndex        =   13
      Top             =   1800
      Width           =   4335
      Begin VB.CommandButton butRunDebugMode 
         Caption         =   "Run Bot While Displaying Debug Messages"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   17
         Top             =   360
         Width           =   4095
      End
      Begin VB.CommandButton butRunInBackground 
         Caption         =   "Run Bot as a Background Process (Hidden)"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   840
         Width           =   4095
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "PID will be displayed in the command window"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   1200
         Width           =   4095
      End
   End
   Begin VB.Frame fraConfigFiles 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Edit Configuration Files Manually..."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1335
      Left            =   3480
      TabIndex        =   11
      Top             =   4560
      Width           =   4335
      Begin VB.CommandButton butEggdropConf 
         Caption         =   "Edit Eggdrop.Conf - X-Bot Core Configuration"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   360
         Width           =   4095
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Warning: All manual alterations to this file will be lost when you Compile this bot again!"
         ForeColor       =   &H000000FF&
         Height          =   495
         Left            =   120
         TabIndex        =   21
         Top             =   720
         Width           =   4095
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Export Files and Settings..."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   3135
      Left            =   120
      TabIndex        =   5
      Top             =   2760
      Width           =   3135
      Begin VB.CommandButton butExportConf 
         Caption         =   "Export Eggdrop.CONF File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   10
         Top             =   2640
         Width           =   2895
      End
      Begin VB.CommandButton butExportChan 
         Caption         =   "Export .CHAN File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   8
         Top             =   1200
         Width           =   2895
      End
      Begin VB.CommandButton butExportUser 
         Caption         =   "Export .USER File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   1680
         Width           =   2895
      End
      Begin VB.CommandButton butExportNotes 
         Caption         =   "Export .NOTES File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   2160
         Width           =   2895
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   $"frmAdvanced.frx":0000
         Height          =   855
         Left            =   120
         TabIndex        =   9
         Top             =   240
         Width           =   2895
      End
   End
   Begin VB.Frame fraImport 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Import Files and Settings..."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   2415
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3135
      Begin VB.CommandButton butImportNotes 
         Caption         =   "Import .NOTES File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   1920
         Width           =   2895
      End
      Begin VB.CommandButton butImportUser 
         Caption         =   "Import .USER File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   1440
         Width           =   2895
      End
      Begin VB.CommandButton butImportChan 
         Caption         =   "Import .CHAN File"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   960
         Width           =   2895
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "X-Bot is compatible with X-Bot, Windrop 1.6 or earlier and Eggdrop 1.6 or earlier settings"
         Height          =   615
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   2895
      End
   End
   Begin VB.Label lblCurrentConfig 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Loading..."
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   330
      Left            =   3480
      TabIndex        =   20
      Top             =   315
      Width           =   1365
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "The currently selected bot configuration is:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   3480
      TabIndex        =   19
      Top             =   120
      Width           =   4335
   End
   Begin VB.Label ScrollingText 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "To Install the X-Bot mIRC Script into mIRC, type /load -rs %AppDir%x-bot.mrc in mIRC"
      ForeColor       =   &H00C00000&
      Height          =   390
      Left            =   3480
      TabIndex        =   18
      Top             =   3840
      Width           =   4320
      WordWrap        =   -1  'True
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   $"frmAdvanced.frx":00A1
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   855
      Left            =   3480
      TabIndex        =   14
      Top             =   840
      Width           =   4335
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   6255
      Left            =   0
      Top             =   -120
      Width           =   3375
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   735
      Left            =   3120
      Top             =   0
      Width           =   4815
   End
End
Attribute VB_Name = "frmAdvanced"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub butAutoDNS_Click()
Window.cmdDNSConfig_Click
End Sub

Private Sub butEggdropConf_Click()
Window.cmdEditEggdropConf_Click
End Sub

Private Sub butExportChan_Click()
Window.cmdExportChans_Click
End Sub

Private Sub butExportConf_Click()
Window.cmdExportEggdropConf_Click
End Sub

Private Sub butExportNotes_Click()
Window.cmdExportNotes_Click
End Sub

Private Sub butExportUser_Click()
Window.cmdExportUsers_Click
End Sub

Private Sub butImportChan_Click()
Window.cmdImportChans_Click
End Sub

Private Sub butImportNotes_Click()
Window.cmdImportNotes_Click
End Sub

Private Sub butImportUser_Click()
Window.cmdImportUsers_Click
End Sub

Private Sub Command1_Click()

End Sub

Private Sub butResolvConf_Click()
Window.cmdEditResolvConf_Click
End Sub

Private Sub butRunDebugMode_Click()
Window.butRunBot_Click
End Sub

Private Sub butRunInBackground_Click()
Window.cmdRunInBkg_Click
End Sub

Private Sub Form_Load()
ScrollingText.Caption = Parse(ScrollingText.Caption, "%AppDir%", App.Path & "\")

'load images
Me.Icon = Window.Icon

butImportChan.Picture = xsplash.button.Picture
butImportUser.Picture = xsplash.button.Picture
butImportNotes.Picture = xsplash.button.Picture
butExportChan.Picture = xsplash.button.Picture
butExportUser.Picture = xsplash.button.Picture
butExportNotes.Picture = xsplash.button.Picture
butExportConf.Picture = xsplash.button.Picture
butRunDebugMode.Picture = xsplash.button.Picture
butRunInBackground.Picture = xsplash.button.Picture
'butAutoDNS.Picture = xsplash.button.Picture
butEggdropConf.Picture = xsplash.button.Picture
'butResolvConf.Picture = xsplash.button.Picture


butRunInBackground.Enabled = Window.butRunBot.Enabled
butRunDebugMode.Enabled = Window.butRunBot.Enabled
butEggdropConf.Enabled = Window.butRunBot.Enabled
GentleOpen Me 'Me.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
GentleClose Me
End Sub

Private Sub Timer1_Timer()
lblCurrentConfig.Caption = Window.lstProfile

'update buttons if enabled or not
butRunInBackground.Enabled = Window.butRunBot.Enabled
butRunDebugMode.Enabled = Window.butRunBot.Enabled
butEggdropConf.Enabled = Window.butRunBot.Enabled
End Sub
